Syntax10.Scn.Fnt
MODULE MacTextEdit;	(*Macintosh OS Interface Module for MacOberon 2.2, Michael Franz, 9.10.91*)
	IMPORT
		TY:= MacTypes, QD:= MacQuickDraw;
	CONST
		teJustLeft*= 0;	teJustCenter*= 1;	teJustRight*= -1;
	TYPE
		TERec*= RECORD
			destRect*, viewRect*, selRect*: TY.Rect;
			lineHeight*, fontAscent*: INTEGER;
			selPoint*: TY.Point;
			selStart*, selEnd*, active*: INTEGER;
			wordBreak*, clikLoop*: TY.ProcPtr;
			clickTime*: LONGINT;
			clickLoc*: INTEGER;
			caretTime*: LONGINT;
			caretState*, just*, teLength*: INTEGER;
			hText*: TY.Handle;
			recalBack, recalLines, clikStuff, crOnly, txFont*: INTEGER;
			txFace*: SHORTINT;	(* Style *)
			txMode*, txSize*: INTEGER;
			inPort*: QD.GrafPtr;
			highHook, caretHook: TY.ProcPtr;
			nLines*: INTEGER;
			lineStarts: ARRAY 16000 OF INTEGER
		END;
		TEPtr*= POINTER- TO TERec;
		TEHandle*= POINTER- TO RECORD p*: TEPtr END;
	PROCEDURE - TENew*(destRect, viewRect: TY.Rect): TEHandle 0A9H, 0D2H;
	PROCEDURE - TEDispose*(hTE: TEHandle) 0A9H, 0CDH;
	PROCEDURE - TEIdle*(hTE: TEHandle) 0A9H, 0DAH;
	PROCEDURE - TEClick*(pt: TY.Point; extend: BOOLEAN; hTE: TEHandle) 0A9H, 0D4H;
	PROCEDURE - TESetSelect*(selStart, selEnd: LONGINT; hTE: TEHandle) 0A9H, 0D1H;
	PROCEDURE - TEActivate*(hTE: TEHandle) 0A9H, 0D8H;
	PROCEDURE - TEDeactivate*(hTE: TEHandle) 0A9H, 0D9H;
	PROCEDURE - TEKey*(key: TY.UnpackedChar; hTE: TEHandle) 0A9H, 0DCH;
	PROCEDURE - TECut*(hTE: TEHandle) 0A9H, 0D6H;
	PROCEDURE - TECopy*(hTE: TEHandle) 0A9H, 0D5H;
	PROCEDURE - TEPaste*(hTE: TEHandle) 0A9H, 0DBH;
	PROCEDURE - TEDelete*(hTE: TEHandle) 0A9H, 0D7H;
	PROCEDURE - TEInsert*(text: TY.Ptr; length: LONGINT; hTE: TEHandle) 0A9H, 0DEH;
	PROCEDURE - TESetJust*(just: INTEGER; hTE: TEHandle) 0A9H, 0DFH;
	PROCEDURE - TEUpdate*(rUpdate: TY.Rect; hTE: TEHandle) 0A9H, 0D3H;
	PROCEDURE - TEScroll*(dh, dv: INTEGER; hTE: TEHandle) 0A9H, 0DDH;
	PROCEDURE - TESelView*(hTE: TEHandle) 0A8H, 011H;
	PROCEDURE - TEPinScroll*(dh, dv: INTEGER; hTE: TEHandle) 0A8H, 012H;
	PROCEDURE - TEAutoView*(fAuto: BOOLEAN; hTE: TEHandle) 0A8H, 013H;
END MacTextEdit.